home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / PDraw3.0.adf / pdraw_rex.lzh / PDADProComm.rexx < prev    next >
OS/2 REXX Batch file  |  1992-06-15  |  813b  |  54 lines
  1. /*
  2.    PDADPro Communications script
  3. */
  4. arguments = getclip(ppuser_adargs)
  5. if args = '' then exit
  6. parse var arguments iwidth ';' iheight ';' rendermode ';' filename ';' mode
  7.  
  8. adstart = 0
  9.  
  10. early = 1
  11.  
  12. do 10
  13.  
  14.    if ~show(p, 'ADPro') then
  15.       call delay(100)
  16.    else
  17.    do
  18.       adstart = 1
  19.       leave
  20.    end
  21.    early = 0
  22.  
  23. end
  24.  
  25. if ~adstart then
  26. do
  27.    call setclip(ppuser_adclip, "0")
  28.    exit_msg()
  29. end
  30.  
  31. call setclip(ppuser_adclip, "1")
  32.  
  33. if ~early then
  34.    call  pdm_Inform(1,"Started ADPro. You must quit ADPro to reimport BitMap..",)
  35.  
  36. address     'ADPro'
  37. 'ADPRO_TO_FRONT'
  38. 'SCREEN_TYPE'  mode
  39. 'LFORMAT'   IFF
  40. 'SFORMAT'   IFF
  41. 'LOAD'      '"'filename'"'
  42. 'RENDER_TYPE'  rendermode
  43. 'ABS_SCALE' iwidth iheight
  44.  
  45. exit_msg()
  46.  
  47. exit_msg: procedure
  48. do
  49.    arg message
  50.  
  51.    if message ~= '' then call pdm_(1,message,)
  52.    exit
  53. end
  54.